home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / CMPLTPAS / YES.PAS < prev   
Pascal/Delphi Source File  |  1988-07-14  |  319b  |  15 lines

  1. {<<<< Yes >>>>}
  2. { From: COMPLETE TURBO PASCAL 5.0 by Jeff Duntemann  }
  3. { Scott, Foresman & Co. 1988      ISBN 0-673-38355-5 }
  4. { Described in section 18.3   --   Last mod 7/5/88   }
  5.  
  6. FUNCTION Yes : Boolean;
  7.  
  8. VAR
  9.   Ch : Char;
  10.  
  11. BEGIN
  12.   Read(Ch);
  13.   IF Ch IN ['Y','y'] THEN Yes := True ELSE Yes := False
  14. END;
  15.